home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AmigActive 23
/
AACD 23.iso
/
AACD
/
Utilities
/
BareED
/
rexx
/
RemInvalidChars.rx
< prev
next >
Wrap
Text File
|
2000-02-05
|
2KB
|
73 lines
/*
This script is to eleminate invalid charcaters that will cause sometimes on
an AMIGA unexpected result. BareED allows to use any characters in range
from 1 to 255, but some applications (e.g. gcc - the GNU C compiler) have
got problems with it. So this script will exchange the characters from 1 to
8, 11 to 26, 28 to 31 and 128 to 159 through a simple string, e.g.
'»»replaced number 25 through this««'.
*/
BAREED_HOST = GetClip('BAREED')
IF BAREED_HOST = '' THEN DO
CALL SetClip('BAREED') /* Remove from ClipNode */
EXIT 5
END
ADDRESS VALUE BAREED_HOST
CALL SetClip('BAREED') /* Remove from ClipNode */
OPTIONS RESULTS
/* ------------------- MAIN ---------------- */
'set echo off'
activate window
lock on
repchar = 1
reps = 0
set findmode
tell "Going to replace invalid strings."'0a'x"This can take its time."'0a'x'0a'x"Please have patience."
do while repchar < 32
set find string d2c( repchar)
set replace string "»»replaced number" repchar "through this««"
move cursor archivestart
do while rc = 0
if repchar == 9 | repchar == 10 | repchar == 27 then /* Ignore tab, lf and esc */
break
find next string
if rc = 0 then do
replace next
reps = reps + 1
end
end
repchar = repchar + 1
end
repchar = 128
do while repchar < 160
set find string d2c( repchar)
set replace string "»»replaced number" repchar "through this««"
move cursor archivestart
do while rc = 0
find next string
if rc = 0 then do
replace next
reps = reps + 1
end
end
repchar = repchar + 1
end
lock off
tell "Replaced" reps "invalid (non AMIGA like) number(s) through string(s)."'0a'x"Those strings are introduced by the text: '»»replaced'"